home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmplam.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
61KB
|
2,717 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "cmplam.h"
init_cmplam(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
MM(VV[49],L1,start,size,data);
MM(VV[50],L2,start,size,data);
MF(VV[51],L3,start,size,data);
MF(VV[52],L4,start,size,data);
MF(VV[53],L5,start,size,data);
MF(VV[54],L6,start,size,data);
MF(VV[55],L8,start,size,data);
MF(VV[56],L10,start,size,data);
VV[32]->s.s_stype=(short)stp_special;
VV[33]->s.s_stype=(short)stp_special;
VV[34]->s.s_stype=(short)stp_special;
MF(VV[57],L11,start,size,data);
MF(VV[58],L12,start,size,data);
MF(VV[59],L13,start,size,data);
MF(VV[60],L14,start,size,data);
MF(VV[61],L15,start,size,data);
MF(VV[62],L16,start,size,data);
MF(VV[63],L17,start,size,data);
MF(VV[64],L18,start,size,data);
MF(VV[65],L19,start,size,data);
MF(VV[66],L20,start,size,data);
vs_top=vs_base=base;
}
/* macro definition for CK-SPEC */
static L1()
{ register object *base=vs_base;
register object *sup=base+VM3;
vs_reserve(VM3);
check_arg(2);
vs_top=sup;
{object V1=base[0]->c.c_cdr;
if(endp(V1))invalid_macro_call();
base[2]= (V1->c.c_car);
V1=V1->c.c_cdr;
if(!endp(V1))invalid_macro_call();}
base[3]= list(3,VV[0],base[2],VV[1]);
vs_top=(vs_base=base+3)+1;
return;
}
/* macro definition for CK-VL */
static L2()
{ register object *base=vs_base;
register object *sup=base+VM4;
vs_reserve(VM4);
check_arg(2);
vs_top=sup;
{object V2=base[0]->c.c_cdr;
if(endp(V2))invalid_macro_call();
base[2]= (V2->c.c_car);
V2=V2->c.c_cdr;
if(!endp(V2))invalid_macro_call();}
base[3]= list(3,VV[0],base[2],VV[2]);
vs_top=(vs_base=base+3)+1;
return;
}
/* function definition for C1LAMBDA-EXPR */
static L3()
{ register object *base=vs_base;
register object *sup=base+VM5;
vs_reserve(VM5);
bds_check;
if(vs_top-vs_base<1) too_few_arguments();
if(vs_top-vs_base>2) too_many_arguments();
vs_base=vs_base+1;
if(vs_base>=vs_top){vs_top=sup;goto T1;}
base[2]= Ct;
vs_top=sup;
goto T2;
T1:;
base[1]= Cnil;
base[2]= Cnil;
T2:;
base[3]= Cnil;
base[4]= Cnil;
base[5]= Cnil;
base[6]= Cnil;
base[7]= Cnil;
base[8]= Cnil;
base[9]= Cnil;
base[10]= Cnil;
base[11]= Cnil;
base[12]= Cnil;
base[13]= Cnil;
base[14]= Cnil;
base[15]= Cnil;
base[16]= Cnil;
base[17]= Cnil;
base[18]= Cnil;
base[19]= Cnil;
bds_bind(VV[3],symbol_value(VV[3]));
base[21]= simple_symlispcall_no_event(VV[67],base+22,0);
base[22]= Cnil;
if(!(endp(base[0]))){
goto T5;}
base[23]= VV[4];
base[24]= make_cons(VV[5],base[0]);
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T5:;
base[23]= cdr(base[0]);
base[24]= Ct;
symlispcall_no_event(VV[69],base+23,2);
if(vs_base<vs_top){
base[14]= vs_base[0];
vs_base++;
}else{
base[14]= Cnil;}
if(vs_base<vs_top){
base[15]= vs_base[0];
vs_base++;
}else{
base[15]= Cnil;}
if(vs_base<vs_top){
base[17]= vs_base[0];
vs_base++;
}else{
base[17]= Cnil;}
if(vs_base<vs_top){
base[16]= vs_base[0];
vs_base++;
}else{
base[16]= Cnil;}
if(vs_base<vs_top){
base[18]= vs_base[0];
vs_base++;
}else{
base[18]= Cnil;}
if(vs_base<vs_top){
base[11]= vs_base[0];
}else{
base[11]= Cnil;}
vs_top=sup;
if((base[2])==Cnil){
goto T14;}
base[23]= make_cons(base[1],base[14]);
base[24]= make_cons(VV[6],base[23]);
base[14]= make_cons(base[24],Cnil);
T14:;
base[23]= base[15];
(void)simple_symlispcall_no_event(VV[70],base+23,1);
base[12]= car(base[0]);
T24:;
if((base[12])!=Cnil){
goto T30;}
goto T22;
T30:;
if(type_of(base[12])==t_cons){
goto T33;}
base[23]= VV[7];
base[24]= base[12];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T33:;
base[24]= car(base[12]);
base[12]= cdr(base[12]);
base[13]= base[24];
base[23]= base[13];
{object V3= base[23];
if((V3!= VV[39]))goto T44;
goto T25;
T44:;
if((V3!= VV[38]))goto T45;
goto T26;
T45:;
if((V3!= VV[41]))goto T46;
goto T27;
T46:;
if((V3!= VV[43]))goto T47;
goto T28;
T47:;}
base[24]= base[13];
base[25]= base[15];
base[26]= base[16];
base[27]= base[17];
base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
base[19]= make_cons(base[13],base[19]);
(VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
base[3]= make_cons(base[23],base[3]);
goto T24;
T25:;
if((base[12])!=Cnil){
goto T59;}
goto T22;
T59:;
if(type_of(base[12])==t_cons){
goto T62;}
base[23]= VV[7];
base[24]= base[12];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T62:;
base[24]= car(base[12]);
base[12]= cdr(base[12]);
base[13]= base[24];
base[23]= base[13];
{object V4= base[23];
if((V4!= VV[38]))goto T73;
goto T26;
T73:;
if((V4!= VV[41]))goto T74;
goto T27;
T74:;
if((V4!= VV[43]))goto T75;
goto T28;
T75:;}
if(type_of(base[13])==t_cons){
goto T78;}
base[24]= base[13];
base[25]= base[15];
base[26]= base[16];
base[27]= base[17];
base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
base[19]= make_cons(base[13],base[19]);
base[25]= structure_ref(base[23],VV[8],5);
base[24]= simple_symlispcall_no_event(VV[72],base+25,1);
base[25]= list(3,base[23],base[24],Cnil);
base[4]= make_cons(base[25],base[4]);
(VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
goto T76;
T78:;
if(type_of(cdr(base[13]))==t_cons){
goto T93;}
if((cdr(base[13]))==Cnil){
goto T95;}
base[23]= VV[9];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T95:;
base[24]= car(base[13]);
base[25]= base[15];
base[26]= base[16];
base[27]= base[17];
base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
base[19]= make_cons(car(base[13]),base[19]);
base[25]= structure_ref(base[23],VV[8],5);
base[24]= simple_symlispcall_no_event(VV[72],base+25,1);
base[25]= list(3,base[23],base[24],Cnil);
base[4]= make_cons(base[25],base[4]);
(VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
goto T76;
T93:;
if(type_of(cddr(base[13]))==t_cons){
goto T113;}
if((cddr(base[13]))==Cnil){
goto T115;}
base[23]= VV[9];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T115:;
base[25]= cadr(base[13]);
base[26]= base[21];
base[23]= simple_symlispcall_no_event(VV[73],base+25,2);
base[25]= car(base[13]);
base[26]= base[15];
base[27]= base[16];
base[28]= base[17];
base[24]= simple_symlispcall_no_event(VV[71],base+25,4);
base[19]= make_cons(car(base[13]),base[19]);
base[26]= structure_ref(base[24],VV[8],5);
base[27]= base[23];
base[28]= cadr(base[13]);
base[25]= simple_symlispcall_no_event(VV[74],base+26,3);
base[26]= list(3,base[24],base[25],Cnil);
base[4]= make_cons(base[26],base[4]);
(VV[3]->s.s_dbind)= make_cons(base[24],(VV[3]->s.s_dbind));
goto T76;
T113:;
if((cdddr(base[13]))==Cnil){
goto T137;}
base[23]= VV[9];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T137:;
base[26]= cadr(base[13]);
base[27]= base[21];
base[23]= simple_symlispcall_no_event(VV[73],base+26,2);
base[26]= car(base[13]);
base[27]= base[15];
base[28]= base[16];
base[29]= base[17];
base[24]= simple_symlispcall_no_event(VV[71],base+26,4);
base[26]= caddr(base[13]);
base[27]= base[15];
base[28]= base[16];
base[29]= base[17];
base[25]= simple_symlispcall_no_event(VV[71],base+26,4);
base[19]= make_cons(car(base[13]),base[19]);
base[19]= make_cons(caddr(base[13]),base[19]);
base[27]= structure_ref(base[24],VV[8],5);
base[28]= base[23];
base[29]= cadr(base[13]);
base[26]= simple_symlispcall_no_event(VV[74],base+27,3);
base[27]= list(3,base[24],base[26],base[25]);
base[4]= make_cons(base[27],base[4]);
(VV[3]->s.s_dbind)= make_cons(base[24],(VV[3]->s.s_dbind));
(VV[3]->s.s_dbind)= make_cons(base[25],(VV[3]->s.s_dbind));
T76:;
goto T25;
T26:;
if(type_of(base[12])==t_cons){
goto T168;}
base[23]= VV[7];
base[24]= base[12];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T168:;
base[19]= make_cons(car(base[12]),base[19]);
base[23]=symbol_function(VV[71]);
base[25]= car(base[12]);
base[12]= cdr(base[12]);
base[24]= base[25];
base[25]= base[15];
base[26]= base[16];
base[27]= base[17];
base[5]= simple_lispcall_no_event(base+23,4);
(VV[3]->s.s_dbind)= make_cons(base[5],(VV[3]->s.s_dbind));
if((base[12])!=Cnil){
goto T186;}
goto T22;
T186:;
if(type_of(base[12])==t_cons){
goto T189;}
base[23]= VV[7];
base[24]= base[12];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T189:;
base[24]= car(base[12]);
base[12]= cdr(base[12]);
base[13]= base[24];
base[23]= base[13];
{object V5= base[23];
if((V5!= VV[41]))goto T200;
goto T27;
T200:;
if((V5!= VV[43]))goto T201;
goto T28;
T201:;}
base[23]= VV[10];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T27:;
base[7]= Ct;
if((base[12])!=Cnil){
goto T206;}
goto T22;
T206:;
if(type_of(base[12])==t_cons){
goto T209;}
base[23]= VV[7];
base[24]= base[12];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T209:;
base[24]= car(base[12]);
base[12]= cdr(base[12]);
base[13]= base[24];
base[23]= base[13];
{object V6= base[23];
if((V6!= VV[43]))goto T220;
goto T28;
T220:;
if((V6!= VV[42]))goto T221;
base[8]= Ct;
if((base[12])!=Cnil){
goto T224;}
goto T22;
T224:;
if(type_of(base[12])==t_cons){
goto T227;}
base[24]= VV[7];
base[25]= base[12];
(void)simple_symlispcall_no_event(VV[68],base+24,2);
T227:;
base[25]= car(base[12]);
base[12]= cdr(base[12]);
base[13]= base[25];
base[24]= base[13];
{object V7= base[24];
if((V7!= VV[43]))goto T238;
goto T28;
T238:;}
base[24]= VV[11];
base[25]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+24,2);
goto T214;
T221:;}
T214:;
if(type_of(base[13])==t_cons){
goto T241;}
base[13]= make_cons(base[13],Cnil);
T241:;
if(!(type_of(car(base[13]))==t_cons)){
goto T247;}
if(!((type_of(caar(base[13]))==t_symbol&&(caar(base[13]))->s.s_hpack==keyword_package))){
goto T250;}
if(!(type_of(cdar(base[13]))==t_cons)){
goto T250;}
if((cddar(base[13]))==Cnil){
goto T249;}
T250:;
base[23]= VV[9];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T249:;
{object V8= caar(base[13]);
base[23]= make_cons(cadar(base[13]),cdr(base[13]));
base[13]= make_cons(V8,base[23]);}
goto T245;
T247:;
if(type_of(car(base[13]))==t_symbol){
goto T259;}
base[23]= VV[9];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T259:;
base[24]= coerce_to_string(car(base[13]));
base[25]= VV[12];
vs_top=(vs_base=base+24)+2;
Lintern();
vs_top=sup;
base[23]= vs_base[0];
base[24]= make_cons(car(base[13]),cdr(base[13]));
base[13]= make_cons(base[23],base[24]);
T245:;
if(type_of(cddr(base[13]))==t_cons){
goto T270;}
if((cddr(base[13]))==Cnil){
goto T272;}
base[23]= VV[9];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T272:;
base[24]= cadr(base[13]);
base[25]= base[15];
base[26]= base[16];
base[27]= base[17];
base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
base[19]= make_cons(cadr(base[13]),base[19]);
{object V9= car(base[13]);
base[25]= structure_ref(base[23],VV[8],5);
base[24]= simple_symlispcall_no_event(VV[72],base+25,1);
base[26]= VV[13];
base[27]= VV[14];
base[25]= simple_symlispcall_no_event(VV[75],base+26,2);
base[26]= list(4,V9,base[23],base[24],base[25]);
base[6]= make_cons(base[26],base[6]);}
(VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
goto T268;
T270:;
if(type_of(cdddr(base[13]))==t_cons){
goto T293;}
if((cdddr(base[13]))==Cnil){
goto T295;}
base[23]= VV[9];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T295:;
base[25]= caddr(base[13]);
base[26]= base[21];
base[23]= simple_symlispcall_no_event(VV[73],base+25,2);
base[25]= cadr(base[13]);
base[26]= base[15];
base[27]= base[16];
base[28]= base[17];
base[24]= simple_symlispcall_no_event(VV[71],base+25,4);
base[19]= make_cons(cadr(base[13]),base[19]);
{object V10= car(base[13]);
base[26]= structure_ref(base[24],VV[8],5);
base[27]= base[23];
base[28]= caddr(base[13]);
base[25]= simple_symlispcall_no_event(VV[74],base+26,3);
base[27]= VV[13];
base[28]= VV[14];
base[26]= simple_symlispcall_no_event(VV[75],base+27,2);
base[27]= list(4,V10,base[24],base[25],base[26]);
base[6]= make_cons(base[27],base[6]);}
(VV[3]->s.s_dbind)= make_cons(base[24],(VV[3]->s.s_dbind));
goto T268;
T293:;
if((cddddr(base[13]))==Cnil){
goto T320;}
base[23]= VV[9];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T320:;
base[26]= caddr(base[13]);
base[27]= base[21];
base[23]= simple_symlispcall_no_event(VV[73],base+26,2);
base[26]= cadr(base[13]);
base[27]= base[15];
base[28]= base[16];
base[29]= base[17];
base[24]= simple_symlispcall_no_event(VV[71],base+26,4);
base[26]= cadddr(base[13]);
base[27]= base[15];
base[28]= base[16];
base[29]= base[17];
base[25]= simple_symlispcall_no_event(VV[71],base+26,4);
base[19]= make_cons(cadr(base[13]),base[19]);
base[19]= make_cons(cadddr(base[13]),base[19]);
{object V11= car(base[13]);
base[27]= structure_ref(base[24],VV[8],5);
base[28]= base[23];
base[29]= caddr(base[13]);
base[26]= simple_symlispcall_no_event(VV[74],base+27,3);
base[27]= list(4,V11,base[24],base[26],base[25]);
base[6]= make_cons(base[27],base[6]);}
(VV[3]->s.s_dbind)= make_cons(base[24],(VV[3]->s.s_dbind));
(VV[3]->s.s_dbind)= make_cons(base[25],(VV[3]->s.s_dbind));
T268:;
goto T27;
T28:;
base[22]= simple_symlispcall_no_event(VV[67],base+23,0);
T29:;
if((base[12])!=Cnil){
goto T352;}
base[23]= base[21];
base[24]= base[22];
(void)simple_symlispcall_no_event(VV[76],base+23,2);
goto T22;
T352:;
if(type_of(base[12])==t_cons){
goto T358;}
base[23]= VV[7];
base[24]= base[12];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T358:;
base[23]= car(base[12]);
base[12]= cdr(base[12]);
base[13]= base[23];
if(!(type_of(base[13])==t_cons)){
goto T370;}
if(type_of(cdr(base[13]))==t_cons){
goto T373;}
if((cdr(base[13]))==Cnil){
goto T375;}
base[23]= VV[9];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T375:;
base[24]= car(base[13]);
base[25]= base[15];
base[26]= base[16];
base[27]= base[17];
base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
base[19]= make_cons(car(base[13]),base[19]);
base[25]= structure_ref(base[23],VV[8],5);
base[24]= simple_symlispcall_no_event(VV[72],base+25,1);
base[10]= make_cons(base[24],base[10]);
base[9]= make_cons(base[23],base[9]);
(VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
goto T368;
T373:;
if((cddr(base[13]))==Cnil){
goto T394;}
base[23]= VV[9];
base[24]= base[13];
(void)simple_symlispcall_no_event(VV[68],base+23,2);
T394:;
base[25]= cadr(base[13]);
base[26]= base[22];
base[23]= simple_symlispcall_no_event(VV[73],base+25,2);
base[25]= car(base[13]);
base[26]= base[15];
base[27]= base[16];
base[28]= base[17];
base[24]= simple_symlispcall_no_event(VV[71],base+25,4);
base[19]= make_cons(car(base[13]),base[19]);
base[26]= structure_ref(base[24],VV[8],5);
base[27]= base[23];
base[28]= cadr(base[13]);
base[25]= simple_symlispcall_no_event(VV[74],base+26,3);
base[10]= make_cons(base[25],base[10]);
base[9]= make_cons(base[24],base[9]);
(VV[3]->s.s_dbind)= make_cons(base[24],(VV[3]->s.s_dbind));
goto T368;
T370:;
base[24]= base[13];
base[25]= base[15];
base[26]= base[16];
base[27]= base[17];
base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
base[19]= make_cons(base[13],base[19]);
base[25]= structure_ref(base[23],VV[8],5);
base[24]= simple_symlispcall_no_event(VV[72],base+25,1);
base[10]= make_cons(base[24],base[10]);
base[9]= make_cons(base[23],base[9]);
(VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
T368:;
goto T29;
T22:;
base[3]= reverse(base[3]);
base[4]= reverse(base[4]);
base[6]= reverse(base[6]);
base[9]= reverse(base[9]);
base[10]= reverse(base[10]);
base[23]= base[19];
base[24]= base[17];
base[25]= base[16];
(void)simple_symlispcall_no_event(VV[77],base+23,3);
base[23]= base[18];
base[24]= base[14];
base[14]= simple_symlispcall_no_event(VV[78],base+23,2);
base[23]= base[21];
base[24]= cadr(base[14]);
(void)simple_symlispcall_no_event(VV[76],base+23,2);
{object V12;
object V13;
V12= base[3];
V13= car((V12));
T458:;
if(!(endp((V12)))){
goto T459;}
goto T454;
T459:;
base[23]= (V13);
(void)simple_symlispcall_no_event(VV[79],base+23,1);
V12= cdr((V12));
V13= car((V12));
goto T458;}
T454:;
{object V14;
object V15;
V14= base[4];
V15= car((V14));
T474:;
if(!(endp((V14)))){
goto T475;}
goto T470;
T475:;
base[23]= car((V15));
(void)simple_symlispcall_no_event(VV[79],base+23,1);
if((caddr((V15)))==Cnil){
goto T481;}
base[23]= caddr((V15));
(void)simple_symlispcall_no_event(VV[79],base+23,1);
T481:;
V14= cdr((V14));
V15= car((V14));
goto T474;}
T470:;
if((base[5])==Cnil){
goto T490;}
base[23]= base[5];
(void)simple_symlispcall_no_event(VV[79],base+23,1);
T490:;
{object V16;
object V17;
V16= base[6];
V17= car((V16));
T498:;
if(!(endp((V16)))){
goto T499;}
goto T494;
T499:;
base[23]= cadr((V17));
(void)simple_symlispcall_no_event(VV[79],base+23,1);
if((cadddr((V17)))==Cnil){
goto T505;}
base[23]= cadddr((V17));
(void)simple_symlispcall_no_event(VV[79],base+23,1);
T505:;
V16= cdr((V16));
V17= car((V16));
goto T498;}
T494:;
{object V18;
object V19;
V18= base[9];
V19= car((V18));
T518:;
if(!(endp((V18)))){
goto T519;}
goto T514;
T519:;
base[23]= (V19);
(void)simple_symlispcall_no_event(VV[79],base+23,1);
V18= cdr((V18));
V19= car((V18));
goto T518;}
T514:;
if((base[9])==Cnil){
goto T530;}
base[23]= base[22];
base[24]= cadr(base[14]);
(void)simple_symlispcall_no_event(VV[76],base+23,2);
base[14]= list(5,VV[15],base[22],base[9],base[10],base[14]);
T530:;
base[23]= list(6,base[3],base[4],base[5],base[7],base[6],base[8]);
base[24]= list(5,VV[5],base[21],base[23],base[11],base[14]);
vs_top=(vs_base=base+24)+1;
bds_unwind1;
return;
}
/* function definition for THE-PARAMETER */
static L4()
{ register object *base=vs_base;
register object *sup=base+VM6;
vs_reserve(VM6);
check_arg(1);
vs_top=sup;
TTL:;
if(type_of(base[0])==t_symbol){
goto T537;}
base[1]= VV[16];
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[68],base+1,2);
T537:;
base[1]= base[0];
vs_top=(vs_base=base+1)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T542;}
base[1]= VV[17];
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[68],base+1,2);
T542:;
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for C2LAMBDA-EXPR */
static L5()
{ register object *base=vs_base;
register object *sup=base+VM7;
vs_reserve(VM7);
bds_check;
if(vs_top-vs_base<2) too_few_arguments();
if(vs_top-vs_base>3) too_many_arguments();
vs_base=vs_base+2;
if(vs_base>=vs_top){vs_top=sup;goto T548;}
base[3]= Ct;
vs_top=sup;
goto T549;
T548:;
base[2]= Cnil;
base[3]= Cnil;
T549:;
if((symbol_value(VV[19]))==Cnil){
goto T553;}
if((base[3])==Cnil){
goto T553;}
{object V20;
base[5]= car(base[0]);
V20= car(base[5]);
T563:;
if(!(endp(base[5]))){
goto T564;}
goto T559;
T564:;
if((structure_ref((V20),VV[8],3))==Cnil){
goto T568;}
goto T553;
T568:;
base[5]= cdr(base[5]);
V20= car(base[5]);
goto T563;}
T559:;
if((cadr(base[0]))!=Cnil){
goto T553;}
if((caddr(base[0]))!=Cnil){
goto T553;}
if((cadddr(base[0]))!=Cnil){
goto T553;}
base[4]= make_cons(base[2],car(base[0]));
goto T551;
T553:;
base[4]= Cnil;
T551:;
bds_bind(VV[18],base[4]);
if((cadddr(base[0]))==Cnil){
goto T582;}
base[5]= base[0];
base[6]= base[1];
vs_top=(vs_base=base+5)+2;
L8();
bds_unwind1;
return;
T582:;
base[5]= base[0];
base[6]= base[1];
vs_top=(vs_base=base+5)+2;
L6();
bds_unwind1;
return;
}
/* function definition for C2LAMBDA-EXPR-WITHOUT-KEY */
static L6()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
{object V21;
object V22;
object V23;
V21= car(base[0]);
V22= cadr(base[0]);
V23= caddr(base[0]);
base[2]= Cnil;
bds_bind(VV[20],symbol_value(VV[20]));
bds_bind(VV[21],symbol_value(VV[21]));
bds_bind(VV[22],symbol_value(VV[22]));
bds_bind(VV[23],symbol_value(VV[23]));
base[7]= Cnil;
{object V24;
object V25;
V24= (V21);
V25= car((V24));
T596:;
if(!(endp((V24)))){
goto T597;}
goto T592;
T597:;
base[8]= (V25);
vs_top=(vs_base=base+8)+1;
L7(base);
vs_top=sup;
V24= cdr((V24));
V25= car((V24));
goto T596;}
T592:;
{object V26;
object V27;
V26= (V22);
V27= car((V26));
T612:;
if(!(endp((V26)))){
goto T613;}
goto T608;
T613:;
base[8]= car((V27));
vs_top=(vs_base=base+8)+1;
L7(base);
vs_top=sup;
if((caddr((V27)))==Cnil){
goto T619;}
base[8]= caddr((V27));
vs_top=(vs_base=base+8)+1;
L7(base);
vs_top=sup;
T619:;
V26= cdr((V26));
V27= car((V26));
goto T612;}
T608:;
if(((V23))==Cnil){
goto T591;}
base[8]= (V23);
vs_top=(vs_base=base+8)+1;
L7(base);
vs_top=sup;
T591:;
if((symbol_value(VV[27]))!=Cnil){
goto T632;}
if((symbol_value(VV[28]))==Cnil){
goto T631;}
T632:;
if(((V23))!=Cnil){
goto T636;}
if(((V22))==Cnil){
goto T637;}
T636:;
if(((V21))==Cnil){
goto T641;}
princ_str("\n if(vs_top-vs_base<",VV[26]);
base[8]= make_fixnum(length((V21)));
(void)simple_symlispcall_no_event(VV[80],base+8,1);
princ_str(") too_few_arguments();",VV[26]);
T641:;
if(((V23))!=Cnil){
goto T631;}
princ_str("\n if(vs_top-vs_base>",VV[26]);
base[9]= make_fixnum(length((V21)));
base[10]= make_fixnum(length((V22)));
base[8]= number_plus(base[9],base[10]);
(void)simple_symlispcall_no_event(VV[80],base+8,1);
princ_str(") too_many_arguments();",VV[26]);
goto T631;
T637:;
princ_str("\n check_arg(",VV[26]);
base[8]= make_fixnum(length((V21)));
(void)simple_symlispcall_no_event(VV[80],base+8,1);
princ_str(");",VV[26]);
T631:;
{object V28;
object V29;
V28= (V21);
V29= car((V28));
T662:;
if(!(endp((V28)))){
goto T663;}
goto T658;
T663:;
base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
structure_set((V29),VV[8],2,base[8]);
V28= cdr((V28));
V29= car((V28));
goto T662;}
T658:;
{object V30;
object V31;
V30= (V22);
V31= car((V30));
T678:;
if(!(endp((V30)))){
goto T679;}
goto T674;
T679:;
{object V32= car((V31));
base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
structure_set(V32,VV[8],2,base[8]);}
V30= cdr((V30));
V31= car((V30));
goto T678;}
T674:;
if(((V23))==Cnil){
goto T690;}
base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
structure_set((V23),VV[8],2,base[8]);
T690:;
{object V33;
object V34;
V33= (V22);
V34= car((V33));
T698:;
if(!(endp((V33)))){
goto T699;}
goto T694;
T699:;
if((caddr((V34)))==Cnil){
goto T703;}
{object V35= caddr((V34));
base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
structure_set(V35,VV[8],2,base[8]);}
T703:;
V33= cdr((V33));
V34= car((V33));
goto T698;}
T694:;
{object V36;
object V37;
V36= (V21);
V37= car((V36));
T716:;
if(!(endp((V36)))){
goto T717;}
goto T712;
T717:;
base[8]= (V37);
(void)simple_symlispcall_no_event(VV[82],base+8,1);
V36= cdr((V36));
V37= car((V36));
goto T716;}
T712:;
if(((V22))!=Cnil){
goto T730;}
if(((V23))==Cnil){
goto T728;}
T730:;
if(((V21))==Cnil){
goto T728;}
princ_str("\n vs_base=vs_base+",VV[26]);
base[8]= make_fixnum(length((V21)));
(void)simple_symlispcall_no_event(VV[80],base+8,1);
princ_char(59,VV[26]);
T728:;
if(((V22))==Cnil){
goto T741;}
bds_bind(VV[22],(VV[22]->s.s_dbind));
bds_bind(VV[20],(VV[20]->s.s_dbind));
bds_bind(VV[23],(VV[23]->s.s_dbind));
{object V38;
V38= (V22);
T747:;
if(!(endp((V38)))){
goto T748;}
goto T744;
T748:;
setq(VV[29],number_plus(symbol_value(VV[29]),VV[25]));
base[11]= symbol_value(VV[29]);
base[12]= make_cons(base[11],Cnil);
base[2]= make_cons(base[12],base[2]);
princ_str("\n if(vs_base>=vs_top){",VV[26]);
(void)simple_symlispcall_no_event(VV[83],base+11,0);
if(type_of(car(base[2]))!=t_cons)FEwrong_type_argument(Scons,car(base[2]));
(car(base[2]))->c.c_cdr = Ct;
princ_str("goto T",VV[26]);
base[11]= car(car(base[2]));
(void)simple_symlispcall_no_event(VV[80],base+11,1);
princ_char(59,VV[26]);
princ_char(125,VV[26]);
base[11]= caar((V38));
(void)simple_symlispcall_no_event(VV[82],base+11,1);
if((caddar((V38)))==Cnil){
goto T769;}
base[11]= caddar((V38));
base[12]= Ct;
(void)simple_symlispcall_no_event(VV[84],base+11,2);
T769:;
if((cdr((V38)))!=Cnil){
goto T775;}
if(((V23))==Cnil){
goto T774;}
T775:;
princ_str("\n vs_base++;",VV[26]);
T774:;
V38= cdr((V38));
goto T747;}
T744:;
if(((V23))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T743;}
princ_str("\n vs_top[0]=Cnil;",VV[26]);
princ_str("\n {object *p=vs_top;",VV[26]);
princ_str("\n for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[26]);
base[11]= (V23);
base[12]= simple_symlispcall_no_event(VV[82],base+11,1);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T743:;
princ_str("\n ",VV[26]);
(void)simple_symlispcall_no_event(VV[83],base+8,0);
setq(VV[29],number_plus(symbol_value(VV[29]),VV[25]));
base[9]= symbol_value(VV[29]);
base[8]= make_cons(base[9],Cnil);
princ_str("\n ",VV[26]);
if(type_of(base[8])!=t_cons)FEwrong_type_argument(Scons,base[8]);
(base[8])->c.c_cdr = Ct;
princ_str("goto T",VV[26]);
base[9]= car(base[8]);
(void)simple_symlispcall_no_event(VV[80],base+9,1);
princ_char(59,VV[26]);
base[2]= reverse(base[2]);
{object V39;
object V40;
V39= (V22);
V40= car((V39));
T810:;
if(!(endp((V39)))){
goto T811;}
goto T806;
T811:;
if((cdr(car(base[2])))==Cnil){
goto T815;}
princ_str("\nT",VV[26]);
base[9]= car(car(base[2]));
(void)simple_symlispcall_no_event(VV[80],base+9,1);
princ_str(":;",VV[26]);
T815:;
base[9]= car(base[2]);
base[2]= cdr(base[2]);
base[9]= car((V40));
base[10]= cadr((V40));
(void)simple_symlispcall_no_event(VV[85],base+9,2);
if((caddr((V40)))==Cnil){
goto T829;}
base[9]= caddr((V40));
base[10]= Cnil;
(void)simple_symlispcall_no_event(VV[84],base+9,2);
T829:;
V39= cdr((V39));
V40= car((V39));
goto T810;}
T806:;
if(((V23))==Cnil){
goto T839;}
base[9]= (V23);
base[10]= Cnil;
(void)simple_symlispcall_no_event(VV[84],base+9,2);
T839:;
if((cdr(base[8]))==Cnil){
goto T739;}
princ_str("\nT",VV[26]);
base[9]= car(base[8]);
(void)simple_symlispcall_no_event(VV[80],base+9,1);
princ_str(":;",VV[26]);
goto T739;
T741:;
if(((V23))==Cnil){
goto T851;}
princ_str("\n vs_top[0]=Cnil;",VV[26]);
princ_str("\n {object *p=vs_top;",VV[26]);
princ_str("\n for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[26]);
base[8]= (V23);
(void)simple_symlispcall_no_event(VV[82],base+8,1);
princ_str("\n ",VV[26]);
(void)simple_symlispcall_no_event(VV[83],base+8,0);
goto T739;
T851:;
princ_str("\n ",VV[26]);
(void)simple_symlispcall_no_event(VV[83],base+8,0);
T739:;
if((symbol_value(VV[18]))==Cnil){
goto T863;}
(VV[20]->s.s_dbind)= make_cons(VV[30],(VV[20]->s.s_dbind));
princ_str("\nTTL:;",VV[26]);
T863:;
base[8]= base[1];
(void)simple_symlispcall_no_event(VV[86],base+8,1);
if((base[7])==Cnil){
goto T872;}
princ_str("\n }",VV[26]);
base[8]= Cnil;
vs_top=(vs_base=base+8)+1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
T872:;
base[8]= Cnil;
vs_top=(vs_base=base+8)+1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;}
}
/* function definition for C2LAMBDA-EXPR-WITH-KEY */
static L8()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
{object V41;
object V42;
object V43;
object V44;
object V45;
V41= car(base[0]);
V42= cadr(base[0]);
V43= caddr(base[0]);
V44= car(cddddr(base[0]));
V45= cadr(cddddr(base[0]));
base[2]= Cnil;
bds_bind(VV[20],symbol_value(VV[20]));
bds_bind(VV[21],symbol_value(VV[21]));
bds_bind(VV[22],symbol_value(VV[22]));
bds_bind(VV[23],symbol_value(VV[23]));
base[7]= Cnil;
{object V46;
object V47;
V46= (V41);
V47= car((V46));
T885:;
if(!(endp((V46)))){
goto T886;}
goto T881;
T886:;
base[8]= (V47);
vs_top=(vs_base=base+8)+1;
L9(base);
vs_top=sup;
V46= cdr((V46));
V47= car((V46));
goto T885;}
T881:;
{object V48;
object V49;
V48= (V42);
V49= car((V48));
T901:;
if(!(endp((V48)))){
goto T902;}
goto T897;
T902:;
base[8]= car((V49));
vs_top=(vs_base=base+8)+1;
L9(base);
vs_top=sup;
if((caddr((V49)))==Cnil){
goto T908;}
base[8]= caddr((V49));
vs_top=(vs_base=base+8)+1;
L9(base);
vs_top=sup;
T908:;
V48= cdr((V48));
V49= car((V48));
goto T901;}
T897:;
if(((V43))==Cnil){
goto T917;}
base[8]= (V43);
vs_top=(vs_base=base+8)+1;
L9(base);
vs_top=sup;
T917:;
{object V50;
object V51;
V50= (V44);
V51= car((V50));
T924:;
if(!(endp((V50)))){
goto T925;}
goto T880;
T925:;
base[8]= cadr((V51));
vs_top=(vs_base=base+8)+1;
L9(base);
vs_top=sup;
if((cadddr((V51)))==Cnil){
goto T931;}
base[8]= cadddr((V51));
vs_top=(vs_base=base+8)+1;
L9(base);
vs_top=sup;
T931:;
V50= cdr((V50));
V51= car((V50));
goto T924;}
T880:;
if((symbol_value(VV[27]))!=Cnil){
goto T942;}
if((symbol_value(VV[28]))==Cnil){
goto T940;}
T942:;
if(((V41))==Cnil){
goto T940;}
if(((V41))==Cnil){
goto T940;}
princ_str("\n if(vs_top-vs_base<",VV[26]);
base[8]= make_fixnum(length((V41)));
(void)simple_symlispcall_no_event(VV[80],base+8,1);
princ_str(") too_few_arguments();",VV[26]);
T940:;
{object V52;
object V53;
V52= (V41);
V53= car((V52));
T957:;
if(!(endp((V52)))){
goto T958;}
goto T953;
T958:;
base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
structure_set((V53),VV[8],2,base[8]);
V52= cdr((V52));
V53= car((V52));
goto T957;}
T953:;
{object V54;
object V55;
V54= (V42);
V55= car((V54));
T973:;
if(!(endp((V54)))){
goto T974;}
goto T969;
T974:;
{object V56= car((V55));
base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
structure_set(V56,VV[8],2,base[8]);}
V54= cdr((V54));
V55= car((V54));
goto T973;}
T969:;
if(((V43))==Cnil){
goto T985;}
base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
structure_set((V43),VV[8],2,base[8]);
T985:;
{object V57;
object V58;
V57= (V44);
V58= car((V57));
T993:;
if(!(endp((V57)))){
goto T994;}
goto T989;
T994:;
{object V59= cadr((V58));
base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
structure_set(V59,VV[8],2,base[8]);}
V57= cdr((V57));
V58= car((V57));
goto T993;}
T989:;
{object V60;
object V61;
V60= (V44);
V61= car((V60));
T1009:;
if(!(endp((V60)))){
goto T1010;}
goto T1005;
T1010:;
{object V62= cadddr((V61));
base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
structure_set(V62,VV[8],2,base[8]);}
V60= cdr((V60));
V61= car((V60));
goto T1009;}
T1005:;
{object V63;
object V64;
V63= (V42);
V64= car((V63));
T1025:;
if(!(endp((V63)))){
goto T1026;}
goto T1021;
T1026:;
if((caddr((V64)))==Cnil){
goto T1030;}
{object V65= caddr((V64));
base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
structure_set(V65,VV[8],2,base[8]);}
T1030:;
V63= cdr((V63));
V64= car((V63));
goto T1025;}
T1021:;
princ_str("\n parse_key(vs_base",VV[26]);
if(((V41))!=Cnil){
goto T1042;}
if(((V42))==Cnil){
goto T1041;}
T1042:;
princ_char(43,VV[26]);
base[9]= make_fixnum(length((V41)));
base[10]= make_fixnum(length((V42)));
base[8]= number_plus(base[9],base[10]);
(void)simple_symlispcall_no_event(VV[80],base+8,1);
T1041:;
if(((V43))==Cnil){
goto T1051;}
princ_str(",TRUE,",VV[26]);
goto T1049;
T1051:;
princ_str(",FALSE,",VV[26]);
T1049:;
if(((V45))==Cnil){
goto T1057;}
princ_str("TRUE,",VV[26]);
goto T1055;
T1057:;
princ_str("FALSE,",VV[26]);
T1055:;
base[8]= make_fixnum(length((V44)));
(void)simple_symlispcall_no_event(VV[80],base+8,1);
{object V66;
object V67;
V66= (V44);
V67= car((V66));
T1068:;
if(!(endp((V66)))){
goto T1069;}
goto T1064;
T1069:;
princ_str(",VV[",VV[26]);
base[8]=symbol_function(VV[80]);
base[10]= car((V67));
base[9]= simple_symlispcall_no_event(VV[87],base+10,1);
(void)simple_lispcall_no_event(base+8,1);
princ_char(93,VV[26]);
V66= cdr((V66));
V67= car((V66));
goto T1068;}
T1064:;
princ_str(");",VV[26]);
{object V68;
object V69;
V68= (V41);
V69= car((V68));
T1090:;
if(!(endp((V68)))){
goto T1091;}
goto T1086;
T1091:;
base[8]= (V69);
(void)simple_symlispcall_no_event(VV[82],base+8,1);
V68= cdr((V68));
V69= car((V68));
goto T1090;}
T1086:;
if(((V42))==Cnil){
goto T1102;}
if(((V41))==Cnil){
goto T1105;}
princ_str("\n vs_base += ",VV[26]);
base[8]= make_fixnum(length((V41)));
(void)simple_symlispcall_no_event(VV[80],base+8,1);
princ_char(59,VV[26]);
T1105:;
bds_bind(VV[22],(VV[22]->s.s_dbind));
bds_bind(VV[20],(VV[20]->s.s_dbind));
bds_bind(VV[23],(VV[23]->s.s_dbind));
{object V70;
V70= (V42);
T1115:;
if(!(endp((V70)))){
goto T1116;}
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T1112;
T1116:;
setq(VV[29],number_plus(symbol_value(VV[29]),VV[25]));
base[11]= symbol_value(VV[29]);
base[12]= make_cons(base[11],Cnil);
base[2]= make_cons(base[12],base[2]);
princ_str("\n if(vs_base>=vs_top){vs_top=sup;",VV[26]);
if(type_of(car(base[2]))!=t_cons)FEwrong_type_argument(Scons,car(base[2]));
(car(base[2]))->c.c_cdr = Ct;
princ_str("goto T",VV[26]);
base[11]= car(car(base[2]));
(void)simple_symlispcall_no_event(VV[80],base+11,1);
princ_char(59,VV[26]);
princ_char(125,VV[26]);
base[11]= caar((V70));
(void)simple_symlispcall_no_event(VV[82],base+11,1);
if((caddar((V70)))==Cnil){
goto T1136;}
base[11]= caddar((V70));
base[12]= Ct;
(void)simple_symlispcall_no_event(VV[84],base+11,2);
T1136:;
if((cdr((V70)))==Cnil){
goto T1141;}
princ_str("\n vs_base++;",VV[26]);
T1141:;
V70= cdr((V70));
goto T1115;}
T1112:;
base[2]= reverse(base[2]);
T1102:;
princ_str("\n vs_top=sup;",VV[26]);
if(((V42))==Cnil){
goto T1151;}
setq(VV[29],number_plus(symbol_value(VV[29]),VV[25]));
base[9]= symbol_value(VV[29]);
base[8]= make_cons(base[9],Cnil);
if(type_of(base[8])!=t_cons)FEwrong_type_argument(Scons,base[8]);
(base[8])->c.c_cdr = Ct;
princ_str("goto T",VV[26]);
base[9]= car(base[8]);
(void)simple_symlispcall_no_event(VV[80],base+9,1);
princ_char(59,VV[26]);
{object V71;
object V72;
V71= (V42);
V72= car((V71));
T1167:;
if(!(endp((V71)))){
goto T1168;}
goto T1163;
T1168:;
if((cdr(car(base[2])))==Cnil){
goto T1172;}
princ_str("\nT",VV[26]);
base[9]= car(car(base[2]));
(void)simple_symlispcall_no_event(VV[80],base+9,1);
princ_str(":;",VV[26]);
T1172:;
base[9]= car(base[2]);
base[2]= cdr(base[2]);
base[9]= car((V72));
base[10]= cadr((V72));
(void)simple_symlispcall_no_event(VV[85],base+9,2);
if((caddr((V72)))==Cnil){
goto T1186;}
base[9]= caddr((V72));
base[10]= Cnil;
(void)simple_symlispcall_no_event(VV[84],base+9,2);
T1186:;
V71= cdr((V71));
V72= car((V71));
goto T1167;}
T1163:;
if((cdr(base[8]))==Cnil){
goto T1151;}
princ_str("\nT",VV[26]);
base[9]= car(base[8]);
(void)simple_symlispcall_no_event(VV[80],base+9,1);
princ_str(":;",VV[26]);
T1151:;
if(((V43))==Cnil){
goto T1202;}
base[8]= (V43);
(void)simple_symlispcall_no_event(VV[82],base+8,1);
T1202:;
{object V73;
object V74;
V73= (V44);
V74= car((V73));
T1210:;
if(!(endp((V73)))){
goto T1211;}
goto T1206;
T1211:;
if(!(caaddr((V74))==VV[31])){
goto T1217;}
if((caddr(caddr((V74))))!=Cnil){
goto T1217;}
base[8]= cadr((V74));
(void)simple_symlispcall_no_event(VV[82],base+8,1);
goto T1215;
T1217:;
princ_str("\n if(",VV[26]);
base[8]= structure_ref(cadddr((V74)),VV[8],2);
(void)simple_symlispcall_no_event(VV[88],base+8,1);
princ_str("==Cnil){",VV[26]);
bds_bind(VV[22],(VV[22]->s.s_dbind));
bds_bind(VV[20],(VV[20]->s.s_dbind));
bds_bind(VV[23],(VV[23]->s.s_dbind));
base[11]= cadr((V74));
base[12]= caddr((V74));
base[13]= simple_symlispcall_no_event(VV[85],base+11,2);
bds_unwind1;
bds_unwind1;
bds_unwind1;
princ_str("\n }else{",VV[26]);
base[8]= cadr((V74));
(void)simple_symlispcall_no_event(VV[82],base+8,1);
princ_char(125,VV[26]);
T1215:;
if(structure_ref(cadddr((V74)),VV[8],1)==VV[14]){
goto T1236;}
base[8]= cadddr((V74));
(void)simple_symlispcall_no_event(VV[82],base+8,1);
T1236:;
V73= cdr((V73));
V74= car((V73));
goto T1210;}
T1206:;
base[8]= base[1];
(void)simple_symlispcall_no_event(VV[86],base+8,1);
if((base[7])==Cnil){
goto T1248;}
princ_str("\n }",VV[26]);
base[8]= Cnil;
vs_top=(vs_base=base+8)+1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
T1248:;
base[8]= Cnil;
vs_top=(vs_base=base+8)+1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;}
}
/* function definition for NEED-TO-SET-VS-POINTERS */
static L10()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
check_arg(1);
vs_top=sup;
TTL:;
if(symbol_value(VV[27])!=Cnil){
base[2]= symbol_value(VV[27]);
vs_top=(vs_base=base+2)+1;
return;}
if(symbol_value(VV[28])!=Cnil){
base[2]= symbol_value(VV[28]);
vs_top=(vs_base=base+2)+1;
return;}
base[1]= cadr(base[0]);
if(base[1]==Cnil)goto T1251;
vs_top=(vs_base=base+1)+1;
return;
T1251:;
base[1]= caddr(base[0]);
if(base[1]==Cnil)goto T1253;
vs_top=(vs_base=base+1)+1;
return;
T1253:;
base[2]= cadddr(base[0]);
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for C1DM */
static L11()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
bds_check;
check_arg(3);
vs_top=sup;
TTL:;
bds_bind(VV[21],symbol_value(VV[21]));
base[4]= Cnil;
base[5]= Cnil;
bds_bind(VV[32],Cnil);
bds_bind(VV[33],simple_symlispcall_no_event(VV[67],base+8,0));
bds_bind(VV[34],Cnil);
base[9]= Cnil;
base[10]= Cnil;
base[11]= Cnil;
base[12]= Cnil;
base[13]= Cnil;
base[14]= Cnil;
base[15]= base[2];
base[16]= Ct;
symlispcall_no_event(VV[69],base+15,2);
if(vs_base<vs_top){
base[2]= vs_base[0];
vs_base++;
}else{
base[2]= Cnil;}
if(vs_base<vs_top){
base[10]= vs_base[0];
vs_base++;
}else{
base[10]= Cnil;}
if(vs_base<vs_top){
base[12]= vs_base[0];
vs_base++;
}else{
base[12]= Cnil;}
if(vs_base<vs_top){
base[11]= vs_base[0];
vs_base++;
}else{
base[11]= Cnil;}
if(vs_base<vs_top){
base[13]= vs_base[0];
vs_base++;
}else{
base[13]= Cnil;}
if(vs_base<vs_top){
base[9]= vs_base[0];
}else{
base[9]= Cnil;}
vs_top=sup;
base[15]= listA(3,VV[6],base[0],base[2]);
base[2]= make_cons(base[15],Cnil);
base[15]= base[10];
(void)simple_symlispcall_no_event(VV[70],base+15,1);
if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
goto T1264;}
if(!(car(base[1])==VV[35])){
goto T1264;}
(VV[32]->s.s_dbind)= make_cons(cadr(base[1]),(VV[32]->s.s_dbind));
base[15]= cadr(base[1]);
base[16]= base[10];
base[17]= base[11];
base[18]= base[12];
base[4]= simple_symlispcall_no_event(VV[71],base+15,4);
(VV[34]->s.s_dbind)= make_cons(base[4],(VV[34]->s.s_dbind));
setq(VV[3],make_cons(base[4],symbol_value(VV[3])));
base[1]= cddr(base[1]);
T1264:;
if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
goto T1282;}
if(!(car(base[1])==VV[36])){
goto T1282;}
(VV[32]->s.s_dbind)= make_cons(cadr(base[1]),(VV[32]->s.s_dbind));
base[15]= cadr(base[1]);
base[16]= base[10];
base[17]= base[11];
base[18]= base[12];
base[5]= simple_symlispcall_no_event(VV[71],base+15,4);
(VV[34]->s.s_dbind)= make_cons(base[5],(VV[34]->s.s_dbind));
setq(VV[3],make_cons(base[5],symbol_value(VV[3])));
base[1]= cddr(base[1]);
T1282:;
base[15]= base[1];
base[16]= base[10];
base[17]= base[11];
base[18]= base[12];
vs_top=(vs_base=base+15)+4;
L12();
if(vs_base<vs_top){
base[1]= vs_base[0];
vs_base++;
}else{
base[1]= Cnil;}
if(vs_base<vs_top){
base[14]= vs_base[0];
}else{
base[14]= Cnil;}
vs_top=sup;
base[15]= (VV[32]->s.s_dbind);
base[16]= base[12];
base[17]= base[11];
(void)simple_symlispcall_no_event(VV[77],base+15,3);
base[15]= base[13];
base[16]= base[2];
base[2]= simple_symlispcall_no_event(VV[78],base+15,2);
base[15]= (VV[33]->s.s_dbind);
base[16]= cadr(base[2]);
(void)simple_symlispcall_no_event(VV[76],base+15,2);
{object V75;
base[15]= (VV[34]->s.s_dbind);
V75= car(base[15]);
T1320:;
if(!(endp(base[15]))){
goto T1321;}
goto T1317;
T1321:;
base[16]= (V75);
(void)simple_symlispcall_no_event(VV[79],base+16,1);
base[15]= cdr(base[15]);
V75= car(base[15]);
goto T1320;}
T1317:;
base[15]= list(6,base[9],base[14],base[4],base[5],base[1],base[2]);
vs_top=(vs_base=base+15)+1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for C1DM-VL */
static L12()
{ register object *base=vs_base;
register object *sup=base+VM12;
vs_reserve(VM12);
check_arg(4);
vs_top=sup;
TTL:;
base[4]= Cnil;
base[5]= Cnil;
base[6]= Cnil;
base[7]= Cnil;
base[8]= Cnil;
base[9]= Cnil;
base[10]= Cnil;
base[11]= Cnil;
base[12]= Cnil;
base[13]= Cnil;
base[14]= Cnil;
base[15]= Cnil;
base[16]= VV[37];
base[17]= Cnil;
T1333:;
if(type_of(base[0])==t_cons){
goto T1334;}
if((base[0])==Cnil){
goto T1337;}
if((base[5])==Cnil){
goto T1340;}
base[18]= VV[38];
(void)simple_symlispcall_no_event(VV[89],base+18,1);
T1340:;
base[18]= base[0];
base[19]= base[1];
base[20]= base[2];
base[21]= base[3];
vs_top=(vs_base=base+18)+4;
L13();
vs_top=sup;
base[11]= vs_base[0];
T1337:;
base[19]= reverse(base[9]);
base[20]= reverse(base[10]);
base[21]= reverse(base[13]);
base[22]= reverse(base[14]);
base[18]= list(7,base[19],base[20],base[11],base[12],base[21],base[15],base[22]);
base[19]= base[17];
vs_top=(vs_base=base+18)+2;
return;
T1334:;
{object V76;
V76= car(base[0]);
if(!((V76)==VV[39])){
goto T1355;}
if((base[4])==Cnil){
goto T1357;}
base[18]= VV[39];
(void)simple_symlispcall_no_event(VV[89],base+18,1);
T1357:;
base[4]= Ct;
base[18]= car(base[0]);
base[0]= cdr(base[0]);
goto T1352;
T1355:;
if((V76)==VV[38]){
goto T1366;}
if(!((V76)==VV[40])){
goto T1367;}
T1366:;
if((base[5])==Cnil){
goto T1371;}
base[18]= (V76);
(void)simple_symlispcall_no_event(VV[89],base+18,1);
T1371:;
base[18]= cadr(base[0]);
base[19]= base[1];
base[20]= base[2];
base[21]= base[3];
vs_top=(vs_base=base+18)+4;
L13();
vs_top=sup;
base[11]= vs_base[0];
base[5]= Ct;
base[4]= Ct;
base[0]= cddr(base[0]);
if(!((V76)==VV[40])){
goto T1352;}
base[17]= base[16];
goto T1352;
T1367:;
if(!((V76)==VV[41])){
goto T1391;}
if((base[6])==Cnil){
goto T1393;}
base[18]= VV[41];
(void)simple_symlispcall_no_event(VV[89],base+18,1);
T1393:;
base[6]= Ct;
base[5]= Ct;
base[4]= Ct;
base[12]= Ct;
base[18]= car(base[0]);
base[0]= cdr(base[0]);
goto T1352;
T1391:;
if(!((V76)==VV[42])){
goto T1409;}
if((base[6])==Cnil){
goto T1412;}
if((base[7])==Cnil){
goto T1411;}
T1412:;
base[18]= VV[42];
(void)simple_symlispcall_no_event(VV[89],base+18,1);
T1411:;
base[7]= Ct;
base[15]= Ct;
base[18]= car(base[0]);
base[0]= cdr(base[0]);
goto T1352;
T1409:;
if(!((V76)==VV[43])){
goto T1425;}
if((base[8])==Cnil){
goto T1427;}
base[18]= VV[43];
(void)simple_symlispcall_no_event(VV[89],base+18,1);
T1427:;
base[8]= Ct;
base[7]= Ct;
base[6]= Ct;
base[5]= Ct;
base[4]= Ct;
base[18]= car(base[0]);
base[0]= cdr(base[0]);
goto T1352;
T1425:;
if((base[8])==Cnil){
goto T1445;}
base[18]= Cnil;
base[19]= Cnil;
if(!(type_of((V76))==t_symbol)){
goto T1450;}
base[18]= (V76);
base[19]= simple_symlispcall_no_event(VV[90],base+20,0);
goto T1448;
T1450:;
base[18]= car((V76));
if(!(endp(cdr((V76))))){
goto T1458;}
base[19]= simple_symlispcall_no_event(VV[90],base+20,0);
goto T1448;
T1458:;
base[20]= cadr((V76));
base[21]= symbol_value(VV[33]);
base[19]= simple_symlispcall_no_event(VV[73],base+20,2);
T1448:;
base[21]= base[18];
base[22]= base[1];
base[23]= base[2];
base[24]= base[3];
vs_top=(vs_base=base+21)+4;
L13();
vs_top=sup;
base[20]= vs_base[0];
base[21]= list(2,base[20],base[19]);
base[14]= make_cons(base[21],base[14]);
base[18]= car(base[0]);
base[0]= cdr(base[0]);
goto T1352;
T1445:;
if((base[6])==Cnil){
goto T1474;}
base[18]= Cnil;
base[19]= Cnil;
base[20]= Cnil;
base[21]= Cnil;
if(!(type_of((V76))==t_symbol)){
goto T1479;}
base[18]= (V76);
base[22]= coerce_to_string((V76));
base[23]= VV[12];
vs_top=(vs_base=base+22)+2;
Lintern();
vs_top=sup;
base[19]= vs_base[0];
base[20]= simple_symlispcall_no_event(VV[90],base+22,0);
goto T1477;
T1479:;
if(!(type_of(car((V76)))==t_symbol)){
goto T1490;}
base[18]= car((V76));
base[22]= coerce_to_string(car((V76)));
base[23]= VV[12];
vs_top=(vs_base=base+22)+2;
Lintern();
vs_top=sup;
base[19]= vs_base[0];
goto T1488;
T1490:;
base[18]= cadar((V76));
base[19]= caar((V76));
T1488:;
if(!(endp(cdr((V76))))){
goto T1501;}
base[20]= simple_symlispcall_no_event(VV[90],base+22,0);
goto T1477;
T1501:;
base[22]= cadr((V76));
base[23]= symbol_value(VV[33]);
base[20]= simple_symlispcall_no_event(VV[73],base+22,2);
if(endp(cddr((V76)))){
goto T1477;}
base[21]= caddr((V76));
T1477:;
base[23]= base[18];
base[24]= base[1];
base[25]= base[2];
base[26]= base[3];
vs_top=(vs_base=base+23)+4;
L13();
vs_top=sup;
base[22]= vs_base[0];
if((base[21])==Cnil){
goto T1519;}
base[24]= base[21];
base[25]= base[1];
base[26]= base[2];
base[27]= base[3];
vs_top=(vs_base=base+24)+4;
L13();
vs_top=sup;
base[23]= vs_base[0];
goto T1517;
T1519:;
base[23]= Cnil;
T1517:;
base[24]= list(4,base[19],base[22],base[20],base[23]);
base[13]= make_cons(base[24],base[13]);
base[18]= car(base[0]);
base[0]= cdr(base[0]);
goto T1352;
T1474:;
if((base[4])==Cnil){
goto T1529;}
base[18]= Cnil;
base[19]= Cnil;
base[20]= Cnil;
if(!(type_of((V76))==t_symbol)){
goto T1534;}
base[18]= (V76);
base[19]= simple_symlispcall_no_event(VV[90],base+21,0);
goto T1532;
T1534:;
base[18]= car((V76));
if(!(endp(cdr((V76))))){
goto T1542;}
base[19]= simple_symlispcall_no_event(VV[90],base+21,0);
goto T1532;
T1542:;
base[21]= cadr((V76));
base[22]= symbol_value(VV[33]);
base[19]= simple_symlispcall_no_event(VV[73],base+21,2);
if(endp(cddr((V76)))){
goto T1532;}
base[20]= caddr((V76));
T1532:;
base[22]= base[18];
base[23]= base[1];
base[24]= base[2];
base[25]= base[3];
vs_top=(vs_base=base+22)+4;
L13();
vs_top=sup;
base[21]= vs_base[0];
if((base[20])==Cnil){
goto T1560;}
base[23]= base[20];
base[24]= base[1];
base[25]= base[2];
base[26]= base[3];
vs_top=(vs_base=base+23)+4;
L13();
vs_top=sup;
base[22]= vs_base[0];
goto T1558;
T1560:;
base[22]= Cnil;
T1558:;
base[23]= list(3,base[21],base[19],base[22]);
base[10]= make_cons(base[23],base[10]);
base[18]= car(base[0]);
base[0]= cdr(base[0]);
base[16]= number_plus(base[16],VV[25]);
goto T1352;
T1529:;
base[19]= (V76);
base[20]= base[1];
base[21]= base[2];
base[22]= base[3];
vs_top=(vs_base=base+19)+4;
L13();
vs_top=sup;
base[18]= vs_base[0];
base[9]= make_cons(base[18],base[9]);
base[18]= car(base[0]);
base[0]= cdr(base[0]);
base[16]= number_plus(base[16],VV[25]);}
T1352:;
goto T1333;
}
/* function definition for C1DM-V */
static L13()
{ register object *base=vs_base;
register object *sup=base+VM13;
vs_reserve(VM13);
check_arg(4);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_symbol)){
goto T1586;}
setq(VV[32],make_cons(base[0],symbol_value(VV[32])));
base[4]= base[0];
base[5]= base[1];
base[6]= base[2];
base[7]= base[3];
base[0]= simple_symlispcall_no_event(VV[71],base+4,4);
setq(VV[3],make_cons(base[0],symbol_value(VV[3])));
setq(VV[34],make_cons(base[0],symbol_value(VV[34])));
vs_top=(vs_base=base+0)+1;
return;
T1586:;
base[4]= base[0];
base[5]= base[1];
base[6]= base[2];
base[7]= base[3];
vs_top=(vs_base=base+4)+4;
L12();
return;
}
/* function definition for C1DM-BAD-KEY */
static L14()
{ register object *base=vs_base;
register object *sup=base+VM14;
vs_reserve(VM14);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= VV[44];
base[2]= base[0];
symlispcall_no_event(VV[68],base+1,2);
return;
}
/* function definition for C2DM */
static L15()
{ register object *base=vs_base;
register object *sup=base+VM15;
vs_reserve(VM15);
check_arg(4);
vs_top=sup;
TTL:;
setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
base[4]= symbol_value(VV[24]);
if((symbol_value(VV[27]))!=Cnil){
goto T1609;}
if((symbol_value(VV[28]))==Cnil){
goto T1608;}
T1609:;
princ_str("\n check_arg(2);",VV[26]);
T1608:;
if((base[0])==Cnil){
goto T1616;}
base[5]= simple_symlispcall_no_event(VV[81],base+6,0);
structure_set(base[0],VV[8],2,base[5]);
goto T1614;
T1616:;
(void)simple_symlispcall_no_event(VV[81],base+5,0);
T1614:;
if((base[1])==Cnil){
goto T1621;}
base[5]= simple_symlispcall_no_event(VV[81],base+6,0);
structure_set(base[1],VV[8],2,base[5]);
goto T1619;
T1621:;
(void)simple_symlispcall_no_event(VV[81],base+5,0);
T1619:;
base[5]= base[2];
vs_top=(vs_base=base+5)+1;
L16();
vs_top=sup;
princ_str("\n vs_top=sup;",VV[26]);
if((base[0])==Cnil){
goto T1628;}
base[5]= base[0];
(void)simple_symlispcall_no_event(VV[82],base+5,1);
T1628:;
if((base[1])==Cnil){
goto T1632;}
base[5]= base[1];
(void)simple_symlispcall_no_event(VV[82],base+5,1);
T1632:;
princ_str("\n {object V",VV[26]);
base[5]= base[4];
(void)simple_symlispcall_no_event(VV[80],base+5,1);
princ_str("=base[0]->c.c_cdr;",VV[26]);
base[5]= base[2];
base[6]= base[4];
vs_top=(vs_base=base+5)+2;
L18();
vs_top=sup;
princ_char(125,VV[26]);
base[5]= base[3];
symlispcall_no_event(VV[86],base+5,1);
return;
}
/* function definition for C2DM-RESERVE-VL */
static L16()
{ register object *base=vs_base;
register object *sup=base+VM16;
vs_reserve(VM16);
check_arg(1);
vs_top=sup;
TTL:;
{object V77;
object V78;
V77= car(base[0]);
V78= car((V77));
T1651:;
if(!(endp((V77)))){
goto T1652;}
goto T1647;
T1652:;
base[1]= (V78);
vs_top=(vs_base=base+1)+1;
L17();
vs_top=sup;
V77= cdr((V77));
V78= car((V77));
goto T1651;}
T1647:;
{object V79;
object V80;
V79= cadr(base[0]);
V80= car((V79));
T1667:;
if(!(endp((V79)))){
goto T1668;}
goto T1663;
T1668:;
base[1]= car((V80));
vs_top=(vs_base=base+1)+1;
L17();
vs_top=sup;
if((caddr((V80)))==Cnil){
goto T1674;}
base[1]= caddr((V80));
vs_top=(vs_base=base+1)+1;
L17();
vs_top=sup;
T1674:;
V79= cdr((V79));
V80= car((V79));
goto T1667;}
T1663:;
if((caddr(base[0]))==Cnil){
goto T1683;}
base[1]= caddr(base[0]);
vs_top=(vs_base=base+1)+1;
L17();
vs_top=sup;
T1683:;
{object V81;
object V82;
V81= car(cddddr(base[0]));
V82= car((V81));
T1691:;
if(!(endp((V81)))){
goto T1692;}
goto T1687;
T1692:;
base[1]= cadr((V82));
vs_top=(vs_base=base+1)+1;
L17();
vs_top=sup;
if((cadddr((V82)))==Cnil){
goto T1698;}
base[1]= cadddr((V82));
vs_top=(vs_base=base+1)+1;
L17();
vs_top=sup;
T1698:;
V81= cdr((V81));
V82= car((V81));
goto T1691;}
T1687:;
{object V83;
object V84;
V83= caddr(cddddr(base[0]));
V84= car((V83));
T1710:;
if(!(endp((V83)))){
goto T1711;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T1711:;
base[1]= car((V84));
vs_top=(vs_base=base+1)+1;
L17();
vs_top=sup;
V83= cdr((V83));
V84= car((V83));
goto T1710;}
}
/* function definition for C2DM-RESERVE-V */
static L17()
{ register object *base=vs_base;
register object *sup=base+VM17;
vs_reserve(VM17);
check_arg(1);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_cons)){
goto T1723;}
base[1]= base[0];
vs_top=(vs_base=base+1)+1;
L16();
return;
T1723:;
base[1]= simple_symlispcall_no_event(VV[81],base+2,0);
structure_set(base[0],VV[8],2,base[1]);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for C2DM-BIND-VL */
static L18()
{ register object *base=vs_base;
register object *sup=base+VM18;
vs_reserve(VM18);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
{object V85;
object V86;
object V87;
object V88;
object V89;
object V90;
object V91;
V85= car(base[0]);
V86= cadr(base[0]);
V87= caddr(base[0]);
V88= cadddr(base[0]);
V89= car(cddddr(base[0]));
V90= cadr(cddddr(base[0]));
V91= caddr(cddddr(base[0]));
{object V92;
V92= (V85);
T1737:;
if(!(endp((V92)))){
goto T1738;}
goto T1734;
T1738:;
if((symbol_value(VV[27]))!=Cnil){
goto T1743;}
if((symbol_value(VV[28]))==Cnil){
goto T1742;}
T1743:;
princ_str("\n if(endp(V",VV[26]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+2,1);
princ_str("))invalid_macro_call();",VV[26]);
T1742:;
base[2]= car((V92));
base[3]= list(2,VV[45],base[1]);
vs_top=(vs_base=base+2)+2;
L19();
vs_top=sup;
if((cdr((V92)))!=Cnil){
goto T1755;}
if(((V86))!=Cnil){
goto T1755;}
if(((V87))!=Cnil){
goto T1755;}
if(((V88))!=Cnil){
goto T1755;}
if((symbol_value(VV[27]))!=Cnil){
goto T1755;}
if((symbol_value(VV[28]))==Cnil){
goto T1754;}
T1755:;
princ_str("\n V",VV[26]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+2,1);
princ_str("=V",VV[26]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+2,1);
princ_str("->c.c_cdr;",VV[26]);
T1754:;
V92= cdr((V92));
goto T1737;}
T1734:;
{object V93;
V93= (V86);
T1780:;
if(!(endp((V93)))){
goto T1781;}
goto T1777;
T1781:;
{object V94;
V94= car((V93));
princ_str("\n if(endp(V",VV[26]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+2,1);
princ_str(")){",VV[26]);
bds_bind(VV[22],symbol_value(VV[22]));
bds_bind(VV[20],symbol_value(VV[20]));
bds_bind(VV[23],symbol_value(VV[23]));
base[5]= car((V94));
base[6]= cadr((V94));
vs_top=(vs_base=base+5)+2;
L20();
vs_top=sup;
if((caddr((V94)))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T1792;}
base[5]= caddr((V94));
base[6]= Cnil;
vs_top=(vs_base=base+5)+2;
L19();
vs_top=sup;
bds_unwind1;
bds_unwind1;
bds_unwind1;
T1792:;
princ_str("\n } else {",VV[26]);
base[2]= car((V94));
base[3]= list(2,VV[45],base[1]);
vs_top=(vs_base=base+2)+2;
L19();
vs_top=sup;
if((caddr((V94)))==Cnil){
goto T1785;}
base[2]= caddr((V94));
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
L19();
vs_top=sup;}
T1785:;
if((cdr((V93)))!=Cnil){
goto T1810;}
if(((V87))!=Cnil){
goto T1810;}
if(((V88))!=Cnil){
goto T1810;}
if((symbol_value(VV[27]))!=Cnil){
goto T1810;}
if((symbol_value(VV[28]))==Cnil){
goto T1809;}
T1810:;
princ_str("\n V",VV[26]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+2,1);
princ_str("=V",VV[26]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+2,1);
princ_str("->c.c_cdr;",VV[26]);
T1809:;
princ_char(125,VV[26]);
V93= cdr((V93));
goto T1780;}
T1777:;
if(((V87))==Cnil){
goto T1832;}
base[2]= (V87);
base[3]= list(2,VV[46],base[1]);
vs_top=(vs_base=base+2)+2;
L19();
vs_top=sup;
T1832:;
{object V95;
object V96;
V95= (V89);
V96= car((V95));
T1841:;
if(!(endp((V95)))){
goto T1842;}
goto T1837;
T1842:;
setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
base[2]= symbol_value(VV[24]);
princ_str("\n {object V",VV[26]);
base[3]= base[2];
(void)simple_symlispcall_no_event(VV[80],base+3,1);
princ_str("=getf(V",VV[26]);
base[3]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+3,1);
princ_str(",VV[",VV[26]);
base[3]=symbol_function(VV[80]);
base[5]= car((V96));
base[4]= simple_symlispcall_no_event(VV[87],base+5,1);
(void)simple_lispcall_no_event(base+3,1);
princ_str("],OBJNULL);",VV[26]);
princ_str("\n if(V",VV[26]);
base[3]= base[2];
(void)simple_symlispcall_no_event(VV[80],base+3,1);
princ_str("==OBJNULL){",VV[26]);
bds_bind(VV[22],symbol_value(VV[22]));
bds_bind(VV[20],symbol_value(VV[20]));
bds_bind(VV[23],symbol_value(VV[23]));
base[6]= cadr((V96));
base[7]= caddr((V96));
vs_top=(vs_base=base+6)+2;
L20();
vs_top=sup;
if((cadddr((V96)))==Cnil){
goto T1870;}
base[6]= cadddr((V96));
base[7]= Cnil;
vs_top=(vs_base=base+6)+2;
L19();
vs_top=sup;
T1870:;
princ_str("\n } else {",VV[26]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
base[3]= cadr((V96));
base[4]= list(2,VV[46],base[2]);
vs_top=(vs_base=base+3)+2;
L19();
vs_top=sup;
if((cadddr((V96)))==Cnil){
goto T1879;}
base[3]= cadddr((V96));
base[4]= Ct;
vs_top=(vs_base=base+3)+2;
L19();
vs_top=sup;
T1879:;
princ_str("}}",VV[26]);
V95= cdr((V95));
V96= car((V95));
goto T1841;}
T1837:;
if((symbol_value(VV[27]))!=Cnil){
goto T1892;}
if((symbol_value(VV[28]))==Cnil){
goto T1890;}
T1892:;
if(((V87))!=Cnil){
goto T1890;}
if(((V88))!=Cnil){
goto T1890;}
princ_str("\n if(!endp(V",VV[26]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+2,1);
princ_str("))invalid_macro_call();",VV[26]);
T1890:;
if((symbol_value(VV[27]))!=Cnil){
goto T1905;}
if((symbol_value(VV[28]))==Cnil){
goto T1903;}
T1905:;
if(((V88))==Cnil){
goto T1903;}
if(((V90))!=Cnil){
goto T1903;}
princ_str("\n check_other_key(V",VV[26]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+2,1);
princ_char(44,VV[26]);
base[2]= make_fixnum(length((V89)));
(void)simple_symlispcall_no_event(VV[80],base+2,1);
{object V97;
object V98;
V97= (V89);
V98= car((V97));
T1923:;
if(!(endp((V97)))){
goto T1924;}
goto T1919;
T1924:;
princ_str(",VV[",VV[26]);
base[2]=symbol_function(VV[80]);
base[4]= car((V98));
base[3]= simple_symlispcall_no_event(VV[87],base+4,1);
(void)simple_lispcall_no_event(base+2,1);
princ_char(93,VV[26]);
V97= cdr((V97));
V98= car((V97));
goto T1923;}
T1919:;
princ_str(");",VV[26]);
T1903:;
{object V99;
object V100;
V99= (V91);
V100= car((V99));
T1943:;
if(!(endp((V99)))){
goto T1944;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T1944:;
base[2]= car((V100));
base[3]= cadr((V100));
vs_top=(vs_base=base+2)+2;
L20();
vs_top=sup;
V99= cdr((V99));
V100= car((V99));
goto T1943;}}
}
/* function definition for C2DM-BIND-LOC */
static L19()
{ register object *base=vs_base;
register object *sup=base+VM19;
vs_reserve(VM19);
check_arg(2);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_cons)){
goto T1957;}
setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
base[2]= symbol_value(VV[24]);
princ_str("\n {object V",VV[26]);
base[3]= base[2];
(void)simple_symlispcall_no_event(VV[80],base+3,1);
princ_str("= ",VV[26]);
base[3]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+3,1);
princ_char(59,VV[26]);
base[3]= base[0];
base[4]= base[2];
vs_top=(vs_base=base+3)+2;
L18();
vs_top=sup;
princ_char(125,VV[26]);
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T1957:;
base[2]= base[0];
base[3]= base[1];
symlispcall_no_event(VV[84],base+2,2);
return;
}
/* function definition for C2DM-BIND-INIT */
static L20()
{ register object *base=vs_base;
register object *sup=base+VM20;
vs_reserve(VM20);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_cons)){
goto T1976;}
bds_bind(VV[21],symbol_value(VV[21]));
bds_bind(VV[47],VV[37]);
setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
base[4]= symbol_value(VV[24]);
base[7]= make_cons(base[1],Cnil);
base[8]= VV[48];
base[6]= simple_symlispcall_no_event(VV[91],base+7,2);
base[5]= car(base[6]);
princ_str("\n {object V",VV[26]);
base[6]= base[4];
(void)simple_symlispcall_no_event(VV[80],base+6,1);
princ_str("= ",VV[26]);
base[6]= base[5];
(void)simple_symlispcall_no_event(VV[80],base+6,1);
princ_char(59,VV[26]);
base[6]= base[0];
base[7]= base[4];
vs_top=(vs_base=base+6)+2;
L18();
vs_top=sup;
princ_char(125,VV[26]);
symlispcall_no_event(VV[92],base+6,0);
bds_unwind1;
bds_unwind1;
return;
T1976:;
base[2]= base[0];
base[3]= base[1];
symlispcall_no_event(VV[85],base+2,2);
return;
}
/* local function DO-DECL */
static L9(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM21;
vs_reserve(VM21);
check_arg(1);
vs_top=sup;
TTL:;
{object V101;
base[1]= base[0];
V101= simple_symlispcall_no_event(VV[93],base+1,1);
if(((V101))==Cnil){
goto T2002;}
setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
base[1]= symbol_value(VV[24]);
structure_set(base[0],VV[8],1,(V101));
structure_set(base[0],VV[8],4,base[1]);
princ_str("\n ",VV[26]);
if((base0[7])!=Cnil){
goto T2009;}
princ_char(123,VV[26]);
base0[7]= Ct;
T2009:;
base[2]=symbol_function(VV[80]);
base[4]= (V101);
base[3]= simple_symlispcall_no_event(VV[94],base+4,1);
(void)simple_lispcall_no_event(base+2,1);
princ_char(86,VV[26]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+2,1);
princ_char(59,VV[26]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T2002:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;}
}
/* local function DO-DECL */
static L7(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM22;
vs_reserve(VM22);
check_arg(1);
vs_top=sup;
TTL:;
{object V102;
base[1]= base[0];
V102= simple_symlispcall_no_event(VV[93],base+1,1);
if(((V102))==Cnil){
goto T2025;}
setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
base[1]= symbol_value(VV[24]);
structure_set(base[0],VV[8],1,(V102));
structure_set(base[0],VV[8],4,base[1]);
princ_str("\n ",VV[26]);
if((base0[7])!=Cnil){
goto T2032;}
princ_char(123,VV[26]);
base0[7]= Ct;
T2032:;
base[2]=symbol_function(VV[80]);
base[4]= (V102);
base[3]= simple_symlispcall_no_event(VV[94],base+4,1);
(void)simple_lispcall_no_event(base+2,1);
princ_char(86,VV[26]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[80],base+2,1);
princ_char(59,VV[26]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T2025:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;}
}